29 VLIN 0,11 AT I: VLIN 12,23 AT I +1: VLIN 24,35 AT I
31 COLOR= 12
33 VLIN 0,11 AT I +1: VLIN 12,23 AT I: VLIN 24,35 AT I +1
35 NEXT I
37 SPEED= 100
39 HTAB 3: PRINT " COLOR/3D T I C T A C T O E "
41 HTAB 14: PRINT "FOR APPLE II"
42 PRINT
43 HTAB 5: PRINT "COPYRIGHT 1980 BY BILL PUMPHREY";
45 FOR Z = 1 TO 1000: NEXT Z
47 TEXT : HOME : SPEED= 255
54 S = 0:T = 0
55 PRINT "THIS IS A THREE DIMENSIONAL GAME OF TIC TAC TOE. TWO PLAYERS (RED AND GREEN) TAKE TURNS PUTTING THEIR COLORED BLOCKS ";
60 PRINT "ON NINE POLES, SCORING EACH TIME THREE BLOCKS OF THE SAME COLOR ARE PLACED IN AVERTICAL, DIAGONAL, OR HORIZONTAL LINE. GAME ENDS WHEN ALL POLES ARE FULL."
65 PRINT : PRINT "EACH POLE IS DIVIDED INTO THREE SEGMENTS--BOTTOM, MIDDLE, & TOP. FIRST, SELECT WHICH POLE (1-9) YOU WANT TO PLACE YOUR BLOCK ON. THEN SELECT THE SEGMENT(B,M,T)";
67 PRINT
70 PRINT "A DIAGRAM SHOWING THE POLE NUMBERS IS ALWAYS SHOWN BELOW THE PLAYING AREA."
72 PRINT : PRINT "IF YOU SHOULD ENTER A WRONG POLE NUMBER,ENTER THE LETTER 'E' AS YOUR POSITION SELECTION, THEN ENTER THE CORRECT POLE NUMBER AND POSITION SELECTION."
75 PRINT : INPUT "ENTER THE NAME OF THE FIRST PLAYER ";A$
77 IF A$ = "" THEN 75
80 PRINT : INPUT "ENTER THE SECOND PLAYER'S NAME ";B$
82 IF B$ = "" THEN 80
85 IF LEN(A$) + LEN(B$) >16 THEN 87
86 GOTO 99
87 HOME : PRINT "THE NAMES ARE TOO LONG FOR THE PROGRAM. ABBREVIATE OR CHANGE THEM THEN REENTER. "
88 FOR Z = 1 TO 1000: NEXT Z: GOTO 75
99 REM * SCREEN SET-UP
100 HOME : RESTORE :S = 0:R = 0:T = 0
105 GR : COLOR= 13
110 HLIN 0,39 AT 0: HLIN 0,39 AT 39
115 VLIN 0,39 AT 0: VLIN 0,39 AT 39
120 COLOR= 15
125 VLIN 4,21 AT 3: VLIN 12,29 AT 7: VLIN 20,37 AT 11
130 VLIN 4,21 AT 15: VLIN 12,29 AT 19: VLIN 20,37 AT 23
135 VLIN 4,21 AT 27: VLIN 12,29 AT 31: VLIN 20,37 AT 35
